home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / piblist.arc / CLEARBUF.PAS next >
Pascal/Delphi Source File  |  1985-03-01  |  1KB  |  26 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Clear_Buffer -- Clears buffer of saved lines            *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Clear_Buffer;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*   Procedure:   Clear_Buffer                                          *)
  10. (*                                                                      *)
  11. (*   Purpose:     Clears buffer of saved lines.                         *)
  12. (*                                                                      *)
  13. (*   Calling sequence:                                                  *)
  14. (*                                                                      *)
  15. (*      Clear_Buffer;                                                   *)
  16. (*                                                                      *)
  17. (*   Calls:  None                                                       *)
  18. (*                                                                      *)
  19. (*----------------------------------------------------------------------*)
  20.  
  21. BEGIN  (* Clear_Buffer *)
  22.  
  23.    Last := NIL;
  24.  
  25. END    (* Clear_Buffer *);
  26.